Sound Fx/Sound Fx.iso/Software/ZIPED/MM9530B1.EXE/_SETUP.1/midimac3.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-02-01 | 43KB | 1,743 lines

object form1: Tform1
  Left = 401
  Top = 167
  Cursor = crArrow
  HelpContext = 35
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption =
    'Midi Machine V3.0-Win95 Beta1 �1997-1994 Andrew Malek of Excel P' +
    'rogs'
  ClientHeight = 404
  ClientWidth = 488
  Color = 10485760
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  PrintScale = poNone
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseUp = FormMouseUp
  PixelsPerInch = 96
  TextHeight = 16
  object massicons: TImage
    Left = 432
    Top = 304
    Width = 137
    Height = 41
    Visible = False
  end
  object PMultiImage1: TPMultiImage
    Left = 0
    Top = 0
    Width = 488
    Height = 387
    HelpContext = 35
    Align = alClient
    Color = clNavy
    ImageName = 'file not found'
    ImageDither = True
    ImageReadRes = lAutoMatic
    ImageWriteRes = sColor256
    TifSaveCompress = sNONE
    JPegSaveQuality = 25
    JPegSaveSmooth = 0
    Stretch = True
    TextLeft = 0
    TextTop = 0
    TextRotate = 0
    TabOrder = 19
    TabStop = False
  end
  object DriveComboBox1: TDriveComboBox
    Tag = -1
    Left = 8
    Top = 71
    Width = 185
    Height = 19
    Color = clBlue
    Ctl3D = False
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    OnChange = DriveComboBox1Change
  end
  object cdlistbox: TListBox
    Tag = -10
    Left = 8
    Top = 219
    Width = 185
    Height = 145
    Color = clBlue
    Ctl3D = False
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    MultiSelect = True
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = FileManagerPopUp
    TabOrder = 15
    Visible = False
    OnDblClick = FileListBox1DblClick
    OnKeyDown = FileListBox1KeyDown
  end
  object cdtitle: TEdit
    Tag = -2
    Left = 8
    Top = 71
    Width = 185
    Height = 19
    BorderStyle = bsNone
    Color = clBlue
    Ctl3D = False
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 16
    Text = 'CD Title Goes Here...'
    Visible = False
    OnExit = cdtitleExit
  end
  object FileListBox1: TFileListBox
    Tag = -10
    Left = 8
    Top = 219
    Width = 185
    Height = 145
    Color = clBlue
    Ctl3D = False
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    Mask = '*.mid'
    MultiSelect = True
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = FileManagerPopUp
    TabOrder = 2
    OnDblClick = FileListBox1DblClick
    OnKeyDown = FileListBox1KeyDown
  end
  object DirectoryListBox1: TDirectoryListBox
    Tag = -3
    Left = 8
    Top = 110
    Width = 185
    Height = 107
    Color = clBlue
    Ctl3D = False
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
    OnChange = DirectoryListBox1Change
    OnMouseUp = DisplayWhatsThisPopup
  end
  object queue: TListBox
    Tag = -11
    Left = 232
    Top = 219
    Width = 201
    Height = 121
    Color = clBlue
    Ctl3D = False
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ItemHeight = 16
    MultiSelect = True
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = QueuePopUp
    TabOrder = 3
    OnKeyDown = queueKeyDown
    OnMouseDown = queueMouseDown
  end
  object btnAdd: TButton
    Tag = 12
    Left = 194
    Top = 254
    Width = 37
    Height = 25
    Caption = '->'
    Default = True
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = callfnexecutebybutton
    OnMouseUp = DisplayWhatsThisPopup
  end
  object btnaddall: TButton
    Tag = 13
    Left = 194
    Top = 318
    Width = 37
    Height = 25
    Caption = 'All ->'
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = callfnexecutebybutton
    OnMouseUp = DisplayWhatsThisPopup
  end
  object mmed: TMediaPlayer
    Left = 472
    Top = 112
    Width = 253
    Height = 20
    Visible = False
    TabOrder = 6
  end
  object btnFileListRollUp: TBitBtn
    Tag = -9
    Left = 48
    Top = 367
    Width = 17
    Height = 17
    TabOrder = 7
    TabStop = False
    OnClick = btnFileListRollUpClick
    OnMouseUp = DisplayWhatsThisPopup
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F3333333333333303333333333333337333333330000}
    NumGlyphs = 2
  end
  object btnDirectoryListRollUp: TBitBtn
    Tag = -9
    Left = 208
    Top = 124
    Width = 17
    Height = 17
    TabOrder = 8
    TabStop = False
    OnClick = btnDirectoryListRollUpClick
    OnMouseUp = DisplayWhatsThisPopup
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333FF3333333333333003333333333333F77F33333333333009033
      333333333F7737F333333333009990333333333F773337FFFFFF330099999000
      00003F773333377777770099999999999990773FF33333FFFFF7330099999000
      000033773FF33777777733330099903333333333773FF7F33333333333009033
      33333333337737F3333333333333003333333333333377333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      33333333333333333333333333333333333333333333333333330000}
    NumGlyphs = 2
  end
  object btnQueueRollUp: TBitBtn
    Tag = -9
    Left = 368
    Top = 366
    Width = 17
    Height = 17
    TabOrder = 9
    TabStop = False
    OnClick = btnQueueRollUpClick
    OnMouseUp = DisplayWhatsThisPopup
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F3333333333333303333333333333337333333330000}
    NumGlyphs = 2
  end
  object btnRemoveQueue: TButton
    Tag = 14
    Left = 232
    Top = 364
    Width = 57
    Height = 22
    Caption = 'Remove'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = callfnexecutebybutton
    OnMouseUp = DisplayWhatsThisPopup
  end
  object btnRemoveAll: TButton
    Tag = 15
    Left = 296
    Top = 364
    Width = 57
    Height = 22
    Caption = 'Rmv All'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = callfnexecutebybutton
    OnMouseUp = DisplayWhatsThisPopup
  end
  object btnUp: TBitBtn
    Tag = 16
    Left = 434
    Top = 216
    Width = 19
    Height = 19
    TabOrder = 12
    OnClick = callfnexecutebybutton
    OnMouseUp = DisplayWhatsThisPopup
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
      333333777777777F33333330B00000003333337F7777777F3333333000000000
      333333777777777F333333330EEEEEE033333337FFFFFF7F3333333300000000
      333333377777777F3333333330BFBFB03333333373333373F33333330BFBFBFB
      03333337F33333F7F33333330FBFBF0F03333337F33337F7F33333330BFBFB0B
      03333337F3F3F7F7333333330F0F0F0033333337F7F7F773333333330B0B0B03
      3333333737F7F7F333333333300F0F03333333337737F7F33333333333300B03
      333333333377F7F33333333333330F03333333333337F7F33333333333330B03
      33333333333737333333333333333033333333333333733333330000}
    NumGlyphs = 2
  end
  object btnDown: TBitBtn
    Tag = 17
    Left = 456
    Top = 216
    Width = 19
    Height = 19
    TabOrder = 13
    OnClick = callfnexecutebybutton
    OnMouseUp = DisplayWhatsThisPopup
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
      33333333373F33333333333330B03333333333337F7F33333333333330F03333
      333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003
      333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0
      333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0
      3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03
      33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0
      33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B
      03333337777777F7F333333300000000033333377777777733330000}
    NumGlyphs = 2
  end
  object queuePlayed: TListBox
    Left = 432
    Top = 272
    Width = 25
    Height = 33
    ItemHeight = 16
    TabOrder = 14
    Visible = False
  end
  object TabSet1: TTabSet
    Tag = -6
    Left = 8
    Top = 88
    Width = 185
    Height = 21
    BackgroundColor = clBlue
    DitherBackground = False
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    SelectedColor = clBlue
    Tabs.Strings = (
      'Files'
      'CD-Audio')
    TabIndex = 0
    UnselectedColor = clBlack
    OnClick = TabSet1Click
    OnMouseUp = DisplayWhatsThisPopup
  end
  object cdinfo: TPanel
    Tag = -2
    Left = 8
    Top = 110
    Width = 185
    Height = 108
    BevelOuter = bvNone
    Color = clBlue
    Ctl3D = False
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 17
    Visible = False
    OnMouseUp = DisplayWhatsThisPopup
    object Label9: TLabel
      Tag = -2
      Left = 2
      Top = 7
      Width = 34
      Height = 13
      Caption = 'Author:'
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label10: TLabel
      Tag = -2
      Left = 2
      Top = 31
      Width = 45
      Height = 13
      Caption = 'Category:'
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label11: TLabel
      Tag = -2
      Left = 2
      Top = 54
      Width = 25
      Height = 13
      Caption = 'Misc:'
      OnMouseUp = DisplayWhatsThisPopup
    end
    object cdauthor: TEdit
      Tag = -2
      Left = 48
      Top = 5
      Width = 129
      Height = 17
      AutoSize = False
      ParentColor = True
      TabOrder = 0
      Text = 'Enter CD Author Here.'
      OnExit = cdtitleExit
    end
    object cdcategory: TEdit
      Tag = -2
      Left = 48
      Top = 30
      Width = 129
      Height = 17
      AutoSize = False
      ParentColor = True
      TabOrder = 1
      Text = 'Enter CD Category Here'
      OnExit = cdtitleExit
    end
    object cdmisc: TMemo
      Tag = -2
      Left = 48
      Top = 53
      Width = 129
      Height = 49
      Lines.Strings = (
        'You can enter other cd '
        'information in this area.')
      ParentColor = True
      ScrollBars = ssVertical
      TabOrder = 2
      OnExit = cdtitleExit
    end
  end
  object btnFilterRollUp: TBitBtn
    Tag = -9
    Left = 368
    Top = 112
    Width = 57
    Height = 21
    Caption = 'Filters'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 20
    OnClick = btnFilterRollUpClick
    OnMouseUp = DisplayWhatsThisPopup
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F333333333333000333333333333377733333330000}
    NumGlyphs = 2
  end
  object filterpanel: TPanel
    Tag = -5
    Left = 368
    Top = 136
    Width = 113
    Height = 81
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 21
    OnMouseUp = DisplayWhatsThisPopup
    object Label3: TLabel
      Tag = -5
      Left = 21
      Top = 1
      Width = 32
      Height = 13
      Caption = 'Wave '
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label2: TLabel
      Tag = -5
      Left = 21
      Top = 14
      Width = 19
      Height = 13
      Caption = 'Midi'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label1: TLabel
      Tag = -5
      Left = 21
      Top = 27
      Width = 15
      Height = 13
      Caption = 'Avi'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label12: TLabel
      Tag = -5
      Left = 21
      Top = 40
      Width = 21
      Height = 13
      Caption = 'Text'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label13: TLabel
      Tag = -5
      Left = 21
      Top = 53
      Width = 21
      Height = 13
      Caption = 'Bmp'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label14: TLabel
      Tag = -5
      Left = 79
      Top = 1
      Width = 21
      Height = 13
      Caption = 'Icon'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label15: TLabel
      Tag = -5
      Left = 79
      Top = 14
      Width = 22
      Height = 13
      Caption = 'Wmf'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label16: TLabel
      Tag = -5
      Left = 79
      Top = 27
      Width = 17
      Height = 13
      Caption = 'Jpg'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label17: TLabel
      Tag = -5
      Left = 79
      Top = 40
      Width = 19
      Height = 13
      Caption = 'Png'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label18: TLabel
      Tag = -5
      Left = 79
      Top = 53
      Width = 18
      Height = 13
      Caption = 'Pcx'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label21: TLabel
      Tag = -5
      Left = 21
      Top = 66
      Width = 14
      Height = 13
      Caption = 'Rtf'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkWav: TCheckBox
      Tag = -5
      Left = 6
      Top = 2
      Width = 11
      Height = 11
      Caption = 'chkWav'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 0
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkMidi: TCheckBox
      Tag = -5
      Left = 6
      Top = 15
      Width = 11
      Height = 11
      Caption = 'chkMidi'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 1
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkAVI: TCheckBox
      Tag = -5
      Left = 6
      Top = 28
      Width = 11
      Height = 11
      Caption = 'chkAVI'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 2
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chktxt: TCheckBox
      Tag = -5
      Left = 6
      Top = 41
      Width = 11
      Height = 11
      Caption = 'chktxt'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 3
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkbmp: TCheckBox
      Tag = -5
      Left = 6
      Top = 54
      Width = 11
      Height = 11
      Caption = 'chktxt'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 4
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkico: TCheckBox
      Tag = -5
      Left = 62
      Top = 2
      Width = 11
      Height = 11
      Caption = 'chktxt'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 5
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkwmf: TCheckBox
      Tag = -5
      Left = 62
      Top = 15
      Width = 11
      Height = 11
      Caption = 'chktxt'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 6
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkjpg: TCheckBox
      Tag = -5
      Left = 62
      Top = 28
      Width = 11
      Height = 11
      Caption = 'chktxt'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 7
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkpng: TCheckBox
      Tag = -5
      Left = 62
      Top = 41
      Width = 11
      Height = 11
      Caption = 'chktxt'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 8
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkpcx: TCheckBox
      Tag = -5
      Left = 62
      Top = 54
      Width = 11
      Height = 11
      Caption = 'chktxt'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 9
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkRTF: TCheckBox
      Tag = -5
      Left = 6
      Top = 67
      Width = 11
      Height = 11
      Caption = 'chktxt'
      Ctl3D = True
      ParentCtl3D = False
      State = cbChecked
      TabOrder = 10
      OnClick = callchangefilterfn
      OnMouseUp = DisplayWhatsThisPopup
    end
  end
  object timedisppanel: TPanel
    Left = 232
    Top = 75
    Width = 161
    Height = 32
    BevelOuter = bvNone
    TabOrder = 22
    object lengthlabel: TLabel
      Left = 0
      Top = 0
      Width = 81
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = 'Song Length'
      Color = clBlack
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'MS Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object lengthtimedisplay: TLabel
      Left = 0
      Top = 16
      Width = 81
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clBlack
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object positionlabel: TLabel
      Left = 80
      Top = 0
      Width = 81
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = 'Song Position'
      Color = clBlack
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'MS Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object positiontimedisplay: TLabel
      Left = 80
      Top = 16
      Width = 81
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clBlack
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object playmodepanel: TPanel
    Tag = -4
    Left = 232
    Top = 136
    Width = 97
    Height = 81
    TabOrder = 23
    OnMouseUp = DisplayWhatsThisPopup
    object Label5: TLabel
      Tag = -4
      Left = 21
      Top = 0
      Width = 67
      Height = 16
      Caption = 'Backwards'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label6: TLabel
      Tag = -4
      Left = 21
      Top = 16
      Width = 52
      Height = 16
      Caption = 'Random'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label7: TLabel
      Tag = -4
      Left = 21
      Top = 32
      Width = 66
      Height = 16
      Caption = 'Continuous'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label8: TLabel
      Tag = -4
      Left = 21
      Top = 48
      Width = 40
      Height = 16
      Caption = 'Shuffle'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label19: TLabel
      Tag = -4
      Left = 21
      Top = 64
      Width = 25
      Height = 16
      Caption = 'Intro'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object Label20: TLabel
      Tag = -4
      Left = 85
      Top = 65
      Width = 12
      Height = 16
      Caption = 's'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkBackwards: TCheckBox
      Tag = -4
      Left = 6
      Top = 3
      Width = 11
      Height = 11
      Caption = 'chkBackwards'
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 0
      OnClick = chkBackwardsClick
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkRandom: TCheckBox
      Tag = -4
      Left = 6
      Top = 19
      Width = 11
      Height = 11
      Caption = 'chkRandom'
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 1
      OnClick = chkRandomClick
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkContinuous: TCheckBox
      Tag = -4
      Left = 6
      Top = 35
      Width = 11
      Height = 11
      Caption = 'chkContinuous'
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 2
      OnClick = chkContinuousClick
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkShuffle: TCheckBox
      Tag = -4
      Left = 6
      Top = 51
      Width = 11
      Height = 11
      Caption = 'chkShuffle'
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 3
      OnClick = chkShuffleClick
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkIntro: TCheckBox
      Tag = -4
      Left = 6
      Top = 67
      Width = 11
      Height = 11
      Caption = 'chkShuffle'
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 4
      OnMouseUp = DisplayWhatsThisPopup
    end
    object introsec: TEdit
      Tag = -4
      Left = 48
      Top = 64
      Width = 33
      Height = 19
      Ctl3D = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
      Text = '5'
    end
  end
  object btnPlayModeRollUp: TBitBtn
    Tag = -9
    Left = 232
    Top = 112
    Width = 89
    Height = 21
    Caption = 'PlayMode'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 24
    OnClick = btnPlayModeRollUpClick
    OnMouseUp = DisplayWhatsThisPopup
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F333333333333000333333333333377733333330000}
    NumGlyphs = 2
  end
  object addtotoppanel: TPanel
    Tag = -8
    Left = 96
    Top = 366
    Width = 97
    Height = 17
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 25
    OnMouseUp = DisplayWhatsThisPopup
    object Label4: TLabel
      Tag = -8
      Left = 22
      Top = 1
      Width = 67
      Height = 16
      Caption = 'Add to Top'
      Color = clYellow
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      OnMouseUp = DisplayWhatsThisPopup
    end
    object chkAddtoTop: TCheckBox
      Tag = -8
      Left = 8
      Top = 4
      Width = 11
      Height = 11
      Caption = 'Add to Top'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnMouseUp = DisplayWhatsThisPopup
    end
  end
  object infobarpanel: TPanel
    Left = 0
    Top = 37
    Width = 489
    Height = 17
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 26
    object infobar: TLabel
      Left = 8
      Top = 0
      Width = 473
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = 'Midi Machine �1997,1996,1995,1994 Andrew Malek of Excel Progs'
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
  end
  object animatediconpanel: TPanel
    Left = 197
    Top = 190
    Width = 32
    Height = 32
    BevelOuter = bvNone
    Color = clBlack
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 27
    object animatedicon: TImage
      Left = 0
      Top = 0
      Width = 33
      Height = 32
      Stretch = True
    end
  end
  object queuefilename: TListBox
    Tag = -11
    Left = 232
    Top = 219
    Width = 201
    Height = 121
    Color = clBlue
    Ctl3D = False
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ItemHeight = 16
    MultiSelect = True
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = QueuePopUp
    TabOrder = 28
    Visible = False
    OnKeyDown = queueKeyDown
    OnMouseDown = queueMouseDown
  end
  object TabSet2: TTabSet
    Tag = -7
    Left = 232
    Top = 339
    Width = 201
    Height = 21
    BackgroundColor = clBlue
    DitherBackground = False
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    SelectedColor = clBlue
    Tabs.Strings = (
      'View Path'
      'Hide Path')
    TabIndex = 0
    UnselectedColor = clBlack
    OnChange = TabSet2Change
    OnMouseUp = DisplayWhatsThisPopup
  end
  object statusbar: TPanel
    Left = 0
    Top = 387
    Width = 488
    Height = 17
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    Caption = 'The Status Bar.'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 30
  end
  object Panel1: TPanel
    Left = 0
    Top = 55
    Width = 489
    Height = 17
    BevelOuter = bvNone
    Caption = 'Panel1'
    Color = clBlack
    TabOrder = 31
    object lblFileInfo: TLabel
      Left = 8
      Top = 0
      Width = 473
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption =
        'Click "File/Info" to get information on a multimedia file/cd tra' +
        'ck here!'
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 200
    OnTimer = Timer1Timer
    Left = 464
    Top = 304
  end
  object MainMenu1: TMainMenu
    Left = 480
    Top = 88
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object mnuOpenAlbum: TMenuItem
        Tag = 1
        Caption = '&Open Album...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object mnuSaveAlbum: TMenuItem
        Tag = 2
        Caption = '&Save Album...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Copy1: TMenuItem
        Tag = 3
        Caption = '&Copy...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object Delete1: TMenuItem
        Tag = 5
        Caption = '&Delete'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object Info1: TMenuItem
        Tag = 7
        Caption = '&Info'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object Move1: TMenuItem
        Tag = 8
        Caption = '&Move...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object Rename1: TMenuItem
        Tag = 10
        Caption = '&Rename...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object N9: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object CopyAll1: TMenuItem
        Tag = 4
        Caption = 'Copy All...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object DeleteAll1: TMenuItem
        Tag = 6
        Caption = 'Delete All'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object MoveAll1: TMenuItem
        Tag = 9
        Caption = 'Move All...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object RenameAll1: TMenuItem
        Tag = 11
        Caption = 'Rename All...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Tag = 19
        Caption = 'Exit'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
    end
    object QueueEdit1: TMenuItem
      Caption = 'Queue &Edit'
      ShortCut = 0
      object AddItemstoQueue3: TMenuItem
        Tag = 12
        Caption = 'Add Item(s) to Queue'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object AddALLItemstoQueue3: TMenuItem
        Tag = 13
        Caption = 'Add ALL Items to Queue'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object RemoveItems1: TMenuItem
        Tag = 14
        Caption = 'Remove Item(s) from Queue'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object RemoveALLItems2: TMenuItem
        Tag = 15
        Caption = 'Remove ALL Items from Queue'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MoveItemsUpinQueue1: TMenuItem
        Tag = 16
        Caption = 'Move Item(s) Up in Queue'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object MoveItemsDowninQueue1: TMenuItem
        Tag = 17
        Caption = 'Move Item(s) Down in Queue'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
    end
    object Tools1: TMenuItem
      Caption = '&Tools'
      ShortCut = 0
      object Setup1: TMenuItem
        Tag = 18
        Caption = 'Setup Options...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
    end
    object Playback1: TMenuItem
      Caption = 'Playbac&k'
      ShortCut = 0
      object Play1: TMenuItem
        Tag = 20
        Caption = '&Play'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object Pause1: TMenuItem
        Tag = 21
        Caption = 'P&ause'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object Stop1: TMenuItem
        Tag = 22
        Caption = 'S&top'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object Next1: TMenuItem
        Tag = 23
        Caption = 'Nex&t'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
    end
    object CDAudio1: TMenuItem
      Caption = 'CD &Audio'
      ShortCut = 0
      object PlaytheCD1: TMenuItem
        Tag = 26
        Caption = 'Play the CD'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object N8: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object EjectCD1: TMenuItem
        Tag = 25
        Caption = 'Eject CD'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object UpdateCDInfo1: TMenuItem
        Tag = 24
        Caption = 'Update CD Info'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
    end
    object mnuHelp: TMenuItem
      Caption = 'H&elp!'
      ShortCut = 0
      object Contents1: TMenuItem
        Tag = 27
        Caption = '&Contents'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object SearchforHelpOn1: TMenuItem
        Tag = 28
        Caption = '&Search for Help On...'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object HelponHelp1: TMenuItem
        Tag = 29
        Caption = '&How to Use Help'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object N11: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object AboutMidiMachine1: TMenuItem
        Tag = 30
        Caption = '&About Midi Machine'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object RegisterMidiMachine1: TMenuItem
        Tag = 31
        Caption = '&Register Midi Machine'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object IntroductiontoMidiMachine1: TMenuItem
        Tag = 32
        Caption = '&Introduction to Midi Machine'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object TechnicalDocuments1: TMenuItem
        Tag = 33
        Caption = '&Technical Documents'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
      object N12: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object TipoftheDay1: TMenuItem
        Tag = 34
        Caption = 'Tip of the &Day'
        ShortCut = 0
        OnClick = callfnexecutebymenu
      end
    end
    object Exit2: TMenuItem
      Tag = 19
      Caption = 'E&xit!'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
  end
  object OpenAlbDialog: TOpenDialog
    DefaultExt = 'alb'
    FileEditStyle = fsEdit
    Filter = 'Album Files (*.ALB)|*.ALB'
    Options = [ofHideReadOnly]
    Left = 464
    Top = 240
  end
  object savealbdialog: TSaveDialog
    DefaultExt = 'alb'
    FileEditStyle = fsEdit
    Filter = 'Album Files (*.ALB)|*.ALB'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Left = 456
    Top = 344
  end
  object FileManagerPopUp: TPopupMenu
    Left = 136
    Top = 232
    object AddItemstoQueue1: TMenuItem
      Tag = 12
      Caption = 'Add Item(s) to Queue'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object AddALLItemstoQueue1: TMenuItem
      Tag = 13
      Caption = 'Add ALL Items to Queue'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object FileCopy1: TMenuItem
      Tag = 3
      Caption = 'File Copy...'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object FileDelete1: TMenuItem
      Tag = 5
      Caption = 'File Delete'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object FileInfo1: TMenuItem
      Tag = 7
      Caption = 'File Info'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object FileMove1: TMenuItem
      Tag = 8
      Caption = 'File Move...'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object FileRename1: TMenuItem
      Tag = 10
      Caption = 'File Rename...'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object N10: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object FileCopyAll1: TMenuItem
      Tag = 4
      Caption = 'File Copy All...'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object FileDeleteAll1: TMenuItem
      Tag = 6
      Caption = 'File Delete All'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object FileMoveAll1: TMenuItem
      Tag = 9
      Caption = 'File Move All...'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object FileRemoveAll1: TMenuItem
      Tag = 11
      Caption = 'File Rename All...'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
  end
  object QueuePopUp: TPopupMenu
    Left = 336
    Top = 224
    object AddItemstoQueue2: TMenuItem
      Tag = 12
      Caption = 'Add Item(s) to Queue'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object AddALLItemstoQueue2: TMenuItem
      Tag = 13
      Caption = 'Add ALL Items to Queue'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object N6: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object RemoveItem1: TMenuItem
      Tag = 14
      Caption = 'Remove Item(s)'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object RemoveALLItems1: TMenuItem
      Tag = 15
      Caption = 'Remove ALL Items'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object MoveItemsUp1: TMenuItem
      Tag = 16
      Caption = 'Move Item(s) Up'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
    object MoveItemsDown1: TMenuItem
      Tag = 17
      Caption = 'Move Item(s) Down'
      ShortCut = 0
      OnClick = callfnexecutebymenu
    end
  end
  object introcountdown: TTimer
    Enabled = False
    OnTimer = introcountdownTimer
    Left = 448
    Top = 80
  end
  object popupmenu: TPopupMenu
    Left = 416
    Top = 80
    object WhatsThis1: TMenuItem
      Caption = 'What'#39's &This?'
      ShortCut = 0
      OnClick = WhatsThis1Click
    end
  end
end